<text>MIC-O-SAYΓÇó Foxman 7/15/89ΓÇó Brave 7/18/90ΓÇó Warrior 7/15/91Firebuilder Tomtom BeaterRunnerK.S.B.ShamanSachemK.W.SagamoreMedicine ManCoup of the long TrailBlood Brother</text>
</content>
<content>
<layer>background</layer>
<id>25</id>
<text>ORDER OF THE ARROWΓÇó Ordeal 5/31/91BrotherhoodVigilVigil NameLodge OfficerCeremonial TeamDance TeamChapter OfficerLodge Officer TrainingNational Conf.Regional Conf.Lodge NameCoup of the Far TravelerBrown HawkWhite BuffaloElangomat</text>
<text>120 Agribusiness001 American Business120 American Culture121 American Heritage122 American Labor004 Animal Science004 L 7/9/88 Archery005 Architecture006 L 8/22/88 Art007 G 7/19/91 Astronomy008 Athletics009 Atomic Energy010 Aviation 011 S 7/8/88 Basketry121 Backpacking012 Beekeeping013 Bird Study015 Botany016 Bugling 017 S 7/15/88 *Camping018 G 7/19/91 Canoeing019 Chemistry128 Cinematoghraphy020 L 1/24/89 *Citizenship-Community021 E 10/23/89 *Citizenship-Nation022 E 4/18/90 *Citizenship-World023 Coin Collecting150 B 2/10/92 Collections024 E 10/5/89 *Communications025 Computers026 Consumer Buying027 B 7/15/88 Cooking028 Cycling 029 B 3/9/91 Dentistry030 Dog Care031 Drafting 032 Electricity033 Electronics034 *Emergency Preparedness035 B 3/9/91 Energy036 Engineering037 L 3/2/89 *Environmental Science 039 Farm Mechanics041 B 7/15/88 Fingerprinting042 Firemanship043 F 7/10/88 *First Aid044 E 7/20/89 Fish & Wildlife Management045 B 7/20/89 Fishing046 E 7/20/89 Forestry 047 Gardening048 G 2/1/91 Genealogy049 General Science050 E 7/15/88 Geology051 Golf124 Graphic Arts 119 Handicapped Awareness052 Hiking053 G 8/22/88 Home Repairs054 G 7/19/90 Horsemanship 055 S 4/18/88 Indian Lore056 P 7/19/91 Insect Life 057 Journalism 058 Landscape Architecture059 Law060 G 7/7/88 Leatherwork061 E 6/2/90 *Lifesaving 062 Machinery063 G 7/15/88 Mammals064 Masonry065 Metals Engineering066 P 7/20/89 Metalworking067 Model Design and Building068 P 7/19/90 Motorboating069 P 10/11/89 Music 070 P 5/14/88 Nature 071 Oceanography072 S 6/6/88 Orienteering 073 Painting074 *Personal Fitness075 L 6/27/88 *Personal Management076 Pets077 Photography079 E 7/15/88 Pioneering080 Plant Science081 P 6/12/89 Plumbing082 Pottery084 Public Health085 Public Speaking086 Pulp and Paper 087 Rabbit Raising088 Radio089 Railroading090 B 6/20/88 Reading091 P 7/19/91 Reptile Study125 B 7/15/88 Rifle Shooting093 P 7/19/91 Rowing 094 E 6/15/90 *Safety095 Salesmanship096 P 11/18/91 Scholarship097 B 7/20/89 Sculpture126 Shotgun Shooting098 Signaling099 Skating100 Skiing101 B 7/19/90 Small boat Sailing102 E 7/20/89 Soil and Water Conservation103 Space Exploration104 E 5/23/88 *Sports105 Stamp Collecting106 Surveying107 B 7/31/87 *Swimming 108 Textile109 Theater110 Traffic Safety111 G 6/18/89 Truck Transportation 112 Veterinary Science 113 P 8/17/91 Water Skiing114 G 7/20/89 Weather127 White Water115 Wilderness Survival116 G 7/13/88 Wood Carving117 Woodwork end end</text>
</content>
<content>
<layer>background</layer>
<id>79</id>
<text>52 Completed MeritBadges / 12 from Eagle list</text>
</content>
<content>
<layer>background</layer>
<id>118</id>
<text>Old Plan</text>
</content>
<name></name>
<script>on openCardset the scroll of bg fld "MeritBadges" to zeroend openCard</script>
</card>
card_9953.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Warrior Golden Winged Earth Dragon#46678 in 1989OA - Ordeal - Spring Conclave 1991OA - Brotherhood - Fall Fellowship 1992Scoutmaster 2/15/89 to 1/7/94Committee Chairman 1/7/94 to ????</text>
</content>
<content>
<layer>background</layer>
<id>29</id>
<text>1/1 100%</text>
</content>
<content>
<layer>background</layer>
<id>31</id>
<text>891-3615</text>
</content>
<content>
<layer>background</layer>
<id>35</id>
<text>2/2 100%</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>1/1 100%</text>
</content>
<content>
<layer>background</layer>
<id>41</id>
<text>0/0 NAN(004)%</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>117658</text>
</content>
<name></name>
<script></script>
</card>
card_4241.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownif the optionKey is down thencreateCardNameList -- rebuild listexit mouseDownend if-- go to the card associated with the clickselect the clickLinewait until the mouse is upif the mouseLoc is not within rect of me thenselect emptyexit mouseDownend ifFind whole word 1 to 2 of clickText() in fld "Name"end mouseDownon createCardNameList-- create the list of card namesput empty into meif the style of me is "Scrolling" then set scroll of me to 0put the short name of this stack & return & ¬"by: HyperMac Software, © 1988-" & item 3 of the long date & return & ¬"Keith D. Kaiser" & return & ¬"4904 NW 67th Terrace" & return & ¬"Kansas City, MO 64151" & return & ¬"(816) 587-1849 nights or (816) 891-5725 days" & return & ¬"America Online @ KKAISER" & return & ¬"InterNet USVV7J8N@IBMMAIL.COM" & return & return & ¬"Information last updated on --" && the short date & ¬"," && the short time & return & ¬"Extra disk space used --" && the freeSize of this stack & return & ¬"Bytes used --" && the size of this stack & return & ¬"Number of cards in stack --" && the number of cds & return & ¬"Number of backgrounds in stack --" && the number of bgs & return & ¬return & "--- Resources ---" & return & ResList() & return & return & ¬"DoLineBar XCMD by: Ulrich Hilger © 1993" & return & ¬"ChangeCurs XCMD by: " & return & ¬"FILLSTR XCMD by: " & return & ¬"SortFieldByItem XCMD by: Roger Brown " & return & ¬"ResList XCMD by: " & return & ¬"ShowList XCMD by: Apple Computer " & return & ¬"STRCOUNT XCMD by: " & return & ¬"Align XCMD by: F. Rinaldi © 1989...1992" & return & ¬"NewFileName XCMD by: Steve Maller " & return & ¬return & "--- Card List ---" into merepeat with curCard = 1 to number of cardsset cursor to busyget the number of cd curCardput it into cdNumberget the short name of card curCardput it into cdNameif word 1 of it is "card" thenput return & cdNumber && "--" && cdName && "-" && fld "Name" of cd curCard ¬after meelseput return & cdNumber && "--" && cdName after meend ifend repeatend createCardNameList</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>446</left>
<top>290</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14953</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUpvisual effect iris close slowly to grayvisual effect iris open slowlypop cdend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>386</left>
<top>290</top>
<right>444</right>
<bottom>342</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10420</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Members</name>
<script>on mouseUpeffect1go cd "Members"end mouseUp</script>
<script>on mouseUpif the visible of cd fld "HyperMac" is false thensetscroll "cd fld hypermac",0setVis "cd fld HyperMac",trueelsesetscroll "cd fld hypermac",0setVis "cd fld HyperMac",falseend ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>204</left>
<top>323</top>
<right>313</right>
<bottom>337</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stack Map</name>
<script>on mouseUpgoToMapsend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>141</left>
<top>290</top>
<right>373</right>
<bottom>305</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Clear field</name>
<script>on mouseUpput empty into cd fld stackinfoend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>292</top>
<right>105</right>
<bottom>314</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenset the name of the target to "Lock Text"set the lockText of cd fld stackInfo to falseelseset the name of the target to "Unlock Text"set lockText of cd fld stackInfo to trueend ifend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>275</left>
<top>306</top>
<right>373</right>
<bottom>320</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Output to file</name>
<script>on mouseUpput "TT Report" && the short date into fileNameput newFileName("Select a destination:",fileName) into fileNameif fileName is empty or fileName is "Cancel" then exit mouseUpopen file fileNamewrite cd fld StackInfo to file fileNameclose file fileNameend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>4</left>
<top>318</top>
<right>129</right>
<bottom>340</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edit Merit Badge List</name>
<script>on mouseUpanswer "Edit Merit Badge list?" && " >> WARNING: This affects only future use." && ¬"Curren lists will not be changed." with "No" or "Yes"if it is "Yes" thenedit script of bg "Merit Badges"end ifend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>7</id>
<text><span class="style1">roop Tracker is another product of Kaisers HyperMac Software, we can be reached at 4904 NW 67th Terrace in Kansas City Missouri 64151 or on GEnie or America Online as KKAISER, or CompuServe at 72427,235. Please drop me a note and let me know how you like this stack, or if you have any ideas to improve it, or complaints on the way it works. This stack is "Scout Patchware", that means if you like it and plan to use it, you must send me a Council Strip, I'll also except money, I'm no fool! As usuall I nor HyperMac Software accept any responsability for problems that may occur due to the use of this stack, there are no warrenties implied or otherwise, but fear not, I have done all I can to get the bugs out... 'On my honor....' </span><span class="style2">Thank You for,</span><span class="style1">ChangeCurs -- by J.Hodgdon ---------------------------------SortItems --Marvin G. Nelsen20462 Castle Rock Cir.Huntington Beach CA. 92646(714) 968-3087 GENIE: M.NELSEN CIS: 72257,1014---------------------------------strCount --</span></text>
<script>on mouseUpeffect1go first cd of bg "Members"end mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>334</left>
<top>313</top>
<right>434</right>
<bottom>335</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenunLockCdTextelselockCdTextend ifend mouseUpon unLockCdTextset the name of the target to "Lock Text"repeat with i = 1 to the number of cd fldsset the lockText of cd fld i to falseend repeatend unLockCdTexton lockCdTextset the name of the target to "Unlock Text"repeat with i = 1 to the number of cd fldsset lockText of cd fld i to trueend repeatend lockCdText</script>
<text>Click on the box you need help with..</text>
</content>
<content>
<layer>card</layer>
<id>18</id>
<text><span class="style5">enderfoot: 1. Present yourself to your leader, properly dressed, before going on an overnight camping trip. Show the camping gear you will use. Show the right way to pack and carry it. 2. Spend at least 1 night on a patrol or troop campout. Sleep in a tent you have helped pitch on a ground bed you have prepared. 3a. Demonstrate how to whip and fuse the ends of a rope. 3b. Demonstrate tying two half hitches and a tautline hitch by using these knots to pitch a tent. 4. Explain the rules of safe hiking, both on the highway and cross-country, during the day and at night. Explain what to do if you are lost. 5. Domonstrate how to display, raise, lower, and fold the American flag. 6. Repeat from memory and explain in your own words the Scout Oath, Law, motto, and slogan. 7. Know your patrol name, give the patrol yell, and describe your patrol flag. 8. Explain why we use the buddy system in Scouting. 9a. Record your best in the following tests: Pushups ____ Pullups ____ Situps ____ Standing long jump ____ft. ____in. Run/walk 500 yards ____ 9b. Show improvement in the activities listed above after practicing for 30 days. 10. Identify local poisonous plants; tell how to treat for exposure to them. 11a. Demonstrate the Heimlich maneuver and tell when it is used. 11b. Show first aid for the following: 1. Simple cuts and scratches 2. Blisters on the hand and foot 3. Minor burns or scalds (first degree) 4. Bites or stings of insects and ticks 5. Poinonous snakebite 6. Nosebleed 12. Participate in a Scoutmaster conference. 13. Board of review completed ___ (date) Awarded</span></text>
</content>
<content>
<layer>card</layer>
<id>27</id>
<text><span class="style6">RDER OF THE ARROWOrdealBrotherhoodVigilVigil NameLodge OfficerCeremonial TeamDance TeamChapter OfficerLodge Officer TrainingNational Conf.Regional Conf.Lodge NameCoup of the Far TravelerBrown HawkWhite BuffaloElangomat</span></text>
<text><span class="style5">irst Class: 1. Demonstrate how to find directions during the day and at night without using a compass. 2. Using a compass, complete an orienteering course that covers at least 1 mile and requires measuring the height and/or width of designated items (tree, tower, canyon, ditch, etc.). 3. Since joining, have participated in ten separate troop/patrol activities (other than troop/patrol meetings), three of which included camping overnight. 4. On one campout, serve as your patrol's cook. Prepare a breakfast, lunch, and dinner menu that requires cooking; secure ingredients; supervise your assistants in fire building; and prepare the meals. Lead your patrol in saying grace at the meals, and supervise cleanup. 5. Visit and discuss with a selected individual approved by your leader (elected official, judge, attorney, civil servant, principal, teacher) your constitutional rights and obligations as a U.S. citizen. 6. Identify or show evidence of at least 10 kinds of native plants found in your community. 7a. Demonstrate tying the timber hitch and clove hitch and their use in square, shear, and diagonal lashings by joining two or more poles or staves together. 7b. Use lashing to make a useful camp gadget. 8a. Demonstrate tying the bowline (rescue) knot and how it's used in rescues. 8b. Demonstrate bandages for injuries on the head the upper arm, and collarbone, and for a sprained ankle. 8c. Show how to transport by yourself, and with one other person, a person: 1. from a smoke-filled room 2. with a broken leg, for at least 25 yards 8d. Tell the five most common signs of a heart attack. Explain the steps (procedures) in cardiopulmonary resuscitation (CPR). 9. Demonstrate your ability to swim 100 yards using one resting stroke and two other strokes and to float (rest) as motionless as possible for 1 minute. * 10. Show Scout spirit. 11. Participate in a Scoutmaster conference. 12. Board of review completed (date).* This requirement may be waived by the troop committee for medical or safety reasons. Awarded</span></text>
</content>
<content>
<layer>card</layer>
<id>24</id>
<text><span class="style6">IC-O-SAYFoxmanBraveWarriorFirebuilderTomtom BeaterRunnerK.S.B.ShamanSachemK.W.SagamoreMedicine ManCoup of the long TrailTribal NameBlood Brother</span></text>
<text><span class="style5">oining Requirements: 1. Complete the fifth grade, or be 11 years old, or have earned the Arrow of Light Award, but be younger than 18 years old. 2. Submit a completed Boy Scout application and health history signed by your parent or guardian. 3. Repeat the Pledge of Allegiance. 4. Demonstrate the Scout sign, salute, and handclasp. 5. Demonstrate tying the square knot(joining knot) 6. Understand and agree to live by the Scout Oath or promise, Law, motto, and slogan, and the Outdoor Code. 7. Describe the Scout badge. 8. With your parent or guardian, complete the exercises in the pamphlet "How to Protect Your Children from Child Abuse and Drug Abuse." 9. Participate in a Scoutmaster conference. Awarded</span><span class="style1"></span></text>
</content>
<content>
<layer>card</layer>
<id>22</id>
<text><span class="style5">econd Class: 1a. Demonstrate how a compass works and how to orient a map. Explain what map symbols mean. 1b. Using a compass and a map you've drawn, take a 5-mile hike (or 10 miles by bike) approved by your adult leader and your parent or guardian. 2a. Since joining, have participated in five separate troop/patrol activities (other than troop/patrol meetings), two of which included camping overnight. 2b. On one campout, demonstrate proper care, sharpening, and use of knife, saw, and ax. 2c. Use the toools listed above to prepare tinder, kindling, and fuel for a cooking fire. 2d. Light the cooking fire. Assist with the meal preparation and cleanup. 2e. On one of these campouts, select your patrol site and sleep in a tent that you pitched. 3. Participate in a flag ceremony for your school religious institution, chartered organization, community, or troop activity. 4. Participate in an approved (minimum of 1 hour) service project. 5. Identify or show evidence of at least 10 kinds of wild animals (birds, mammals, reptiles, fish, mollusks) found in your community. 6a. Show what to do for "hurry" cases of stopped breathing, serious bleeding, and internal poisoning. 6b. Prepare a personal first aid kit to take with you on a hike. 6c. Demonstrate first aid for the following: 1. Object in the eye 2. Bite of a suspected rabid animal 3. Puncture wounds from a splinter, nail, and fish hook. 4. Serious burns (second degree) 5. Heat exhaustion 6. Shock 7. Tell what precautions must be taken for a safe swim. Demonstrate your ability to swim 50 yards using two different strokes. * 8. Participate in a school, community, or troop program on the dangers of using drugs, alcohol and tobacco, and other practices that could be harmful to you health. Discuss your participation in the program with your family. 9. Show Scout spirit. 10. Participate in a Scoutmaster conference. 11. Board of review completed (date).* This requirement may be waived by the troop committee for medical or safety reasons. Awarded</span></text>
</content>
<content>
<layer>card</layer>
<id>46</id>
<text>Requirements CardThis card is required by the stack. It is used as a storage area for text that is needed when a new boy starts the troop. Being stored here also makes it easy for YOU to edit if you want to change the wording for future new boys in the troop.</text>
</content>
<content>
<layer>card</layer>
<id>25</id>
<text><span class="style5">20 Agribusiness015 American Business017 American Culture016 American Heritage121 American Labor018 Animal Science019 Archery020 Architecture021 Art022 Astronomy023 Athletics024 Atomic Energy241 Auto Mechanics025 Aviation 026 Backpacking027 Basketry028 Beekeeping029 Bird Study031 Botany032 Bugling 001 *Camping033 Canoeing034 Chemistry126 Cinematoghrphy002 *Citizenship-Community003 *Citizenship-Nation004 *Citizenship-World035 Coin Collecting242 Collections005 *Communications036 Computers037 Consumer Buying038 Cooking039 Cycling 040 Dentistry041 Dog Care042 Drafting 043 Electricity044 Electronics006 *Emergency Preparedness045 Energy046 Engineering007 *Environmental Science 243 Family Life048 Farm Mechanics049 Fingerprinting050 Firemanship008 *First Aid051 Fish & Wildlife Management052 Fishing054 Forestry 055 Gardening056 Genealogy057 General Science058 Geology059 Golf122 Graphic Arts 060 Handicapped Awareness061 Hiking062 Home Repairs063 Horsemanship 064 Indian Lore065 Insect Study 066 Journalism 067 Landscape Architecture068 Law069 Leatherwork009 *Lifesaving 070 Machinery071 Mammal Study072 Masonry244 Medicine073 Metals Engineering074 Metalwork075 Model Design and Building076 Motorboating077 Music 078 Nature 079 Oceanography080 Orienteering 081 Painting010 *Personal Fitness011 *Personal Management082 Pets083 Photography084 Pioneering085 Plant Science086 Plumbing087 Pottery089 Public Health090 Public Speaking091 Pulp and Paper 092 Rabbit Raising093 Radio094 Railroading095 Reading096 Reptile Study123 Rifle Shooting098 Rowing 012 *Safety099 Salesmanship100 Scholarship101 Sculpture124 Shotgun Shooting102 Signaling103 Skating104 Skiing105 Small boat Sailing106 Soil and Water Conservation107 Space Exploration013 *Sports108 Stamp Collecting100 Surveying014 *Swimming 110 Textile111 Theater112 Traffic Safety113 Truck Transportation 114 Veterinary Science 115 Water Skiing116 Weather125 White Water117 Wilderness Survival118 Wood Carving119 Woodworkend end</span></text>
</content>
<name>Requirements</name>
<script>on mouseUpif name of target contains "field" thenchangeFieldend ifend mouseUpon closeCardglobal clickSpotif cd fld 1 contains "normal" thenclick at clickSpotend ifend closeCardon changeFieldglobal rectOfIt,fldName,clickSpotlock screenput the mouseLoc into clickSpotif cd fld "Instruction" contains "Help" thenput "Click again to return it to normal.." into ¬cd fld "Instruction"put word 3 of the name of the target into fldNameput the rect of the target into rectOfItset the rect of the target to 0,20,512,281set the style of the target to scrollingrepeat with i = 2 to the number of cd fldsset the visible of cd fld i to falseend repeatset the visible of the target to trueelseput "Click on the box you need help with.." into ¬cd fld "Instruction"set the rect of the target to rectOfItset the style of the target to rectanglerepeat with i = 1 to the number of cd fldsset the visible of cd fld i to trueend repeatend ifunlock screen with iris open slowlyend changeFieldon allVisiblerepeat with i = 1 to the number of cd fldsset the visible of cd fld i to trueend repeatend allVisible</script>
</card>
card_16895.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpeffect1go first cd of bg "Members"end mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>334</left>
<top>313</top>
<right>434</right>
<bottom>335</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenunLockCdTextelselockCdTextend ifend mouseUpon unLockCdTextset the name of the target to "Lock Text"repeat with i = 1 to the number of cd fldsset the lockText of cd fld i to falseend repeatend unLockCdTexton lockCdTextset the name of the target to "Unlock Text"repeat with i = 1 to the number of cd fldsset lockText of cd fld i to trueend repeatend lockCdText</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>283</top>
<right>88</right>
<bottom>340</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10420</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>For Home Card</name>
<script>on mouseUpanswer "Place this button in your home stack?" with "Yes" or "No"if it is "yes" thenlock screendomenu "new button"put "Troop Tracker" into stackNameset name of btn "new button" to stackNameput "BSA Troop Tracker" into nameofstackput "on mouseUp" && return into newScriptput "go to stack" && nameofstack && return after newScriptput "hide menubar" && return after newScriptput "end mouseUp" && return after newScriptset script of btn stackName to newScriptset the icon of btn stackName to 10420set the rect of btn stackName to 4,279,77,340set the style of btn stackName to roundRectshow name of btn stackNameput the loc of btn stackName into butLocchoose btn toolclick at butLocdomenu "cut button"choose browse toolgo homeput "Select 'paste' or Command V"end ifend mouseUp</script>
<text>Click on the box you need help with..</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>How to get started--This stack comes with one Boy and one Leader already listed in it. Those names may be changed by simply clicking on the button that says "Replace" on the Members Directory card. From then on all new Boys should be added using the "New Scout" button on the Members Directory card or the same button on each of the Members Information cards. Additional Leaders may be added by clicking on the New button on the Leaders Information cards.Always use the "New Scout" and "Delete Scout" buttons for their functions, do not use "Delete Card" from the menu bar. While it won't ruin the integrety of the stack it will make your life more difficult, take my word for it.Clicking on any MAP button will take you to the map of the stack, if you OPTION click on the MAP button you will be brought to the Troop Map. Try it below and see, when you return, click anywhere on this Card to return it to normal.end</text>
</content>
<content>
<layer>card</layer>
<id>18</id>
<text>Members Directory Card--Clicking on a name brings you to the information card about this Scout or Leader, depending which field is showing. If the information card indicates that the Scout has turned 18, it will ask if you want to create a Leader Card.You may select "Yes" or "Not Yet" depending on your need. His Activity marker will be changed to "History" if you choose "Yes" and a new Leader Card will be created.Option clicking on a name displays that scouts rank, his patrol and his post in the message box.Double Clicking on a name will dial his phone number if it is displayed in the field.This card contains a number of obvious buttons and some not so obvious. Those less likly to catch your attention are as follows.Clicking on the field above the Names list will allow you to change the data in that field, using the current contents as the default.Clicking on the field displaying the stack size will allow you to compact the entire stack if you wish.There is a secret 'Page Thru' button on the left side of the Leaders/Scout, Print This Listing buttons. There is also a secret button to re-iniatialize the data base on the right side of these buttons. This button can come in handy if for some reason the file became corrupt.Fields displayed by clicking on the "Notes" or "Attendance" buttons can be hidden by clicking on the displayed field.</text>
</content>
<content>
<layer>card</layer>
<id>27</id>
<text>Second Class Card--Use this card to record the Scouts progress toward the rank of Second Class, you may select either the 'Old' program or 'New' by clicking on the button in the upper left hand corner.</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>Life Card--Record your Scouts progress toward Life on this card. There are several short cuts to entering data here as well. If you need a list of the Scouts merit badges to date and easy way to retrieve it for viewing is to click on the button that says 'List Hist MBs'. You may also ask for a list of the Eagle required merit badges by clicking on that button. You may then automatically enter one of these into the first blank merit badge requirement field on the card by double clicking it in the dialog box.</text>
</content>
<content>
<layer>card</layer>
<id>21</id>
<text>Scout Card--Use this card to record the Scouts progress toward the rank of Scout, you may select either the 'Old' program or 'New' by clicking on the button in the upper left hand corner.</text>
</content>
<content>
<layer>card</layer>
<id>24</id>
<text>Tenderfoot Card--Use this card to record the Scouts progress toward the rank of Tenderfoot, you may select either the 'Old' program or 'New' by clicking on the button in the upper left hand corner.</text>
</content>
<content>
<layer>card</layer>
<id>30</id>
<text>First Class Card--Use this card to record the Scouts progress toward the rank of First Class, you may select either the 'Old' program or 'New' by clicking on the button in the upper left hand corner.</text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>Star Card--Record your Scouts progress toward Star on this card. There are several short cuts to entering data here as well. If you need a list of the Scouts merit badges to date and easy way to retrieve it for viewing is to click on the button that says 'List Hist MBs'. You may also ask for a list of the Eagle required merit badges by clicking on that button. You may then automatically enter one of these into the first blank merit badge requirement field on the card by double clicking it in the dialog box.</text>
</content>
<content>
<layer>card</layer>
<id>22</id>
<text>Eagle Card--Record your Scouts progress toward Eagle on this card. There are several short cuts to entering data here as well. If you need a list of the Scouts merit badges to date and easy way to retrieve it for viewing is to click on the button that says 'List Hist MBs'. You may also ask for a list of the Eagle required merit badges by clicking on that button. You may then automatically enter one of these into the first blank merit badge requirement field on the card by double clicking it in the dialog box.</text>
</content>
<content>
<layer>card</layer>
<id>25</id>
<text>Skill Awards Card--This card is for the boys who are still on the old program. In this version of Troop Tracker I have not yet implemented a method of not creating it for each Scout.</text>
</content>
<content>
<layer>card</layer>
<id>28</id>
<text>Merit Badges Card--To record a merit badges earned, click on the name of the badge. A dialog box will be displayed asking you what rank should be associated with this badge and then another asking the date earned. Both pieces of information will be entered into the field next to the merit badge name. If the merit badge field is empty click on the button 'Restore' this will fill the field for you. On this card it is also possible to create a report of just the merit badges this Scout has earned simply click on the appropriate buttons.</text>
</content>
<content>
<layer>card</layer>
<id>31</id>
<text>Misc. Awards Card--Use this card to address the myriad of miscellanious awards, posts and activities your Scout has worked on.</text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>Leaders Card--Use the Leaders cards to record your committee, active Scouters, District contacts, who ever you want.</text>
</content>
<content>
<layer>card</layer>
<id>20</id>
<text>Stack Info Card--This card is used as the output window for most of the reports you can create within this stack. It also details a bunch of stuff that may or may not be of interest to you about the make up of the stack. To produce this info report hold the "Option" key down while clicking anywhere withing the report field.</text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text>Your Note Pad--Reserved for your use........</text>
</content>
<content>
<layer>card</layer>
<id>26</id>
<text>Map Screens--The two Map cards are active maps allowing you to roam at will amoung all the backgrounds of the stack. It's really only of limited use but does give you some indication of the structure of the stack.</text>
</content>
<content>
<layer>card</layer>
<id>32</id>
<text>HyperMac Software--HyperMac Software is,Keith D. Kaiser4904 NW 67th TerraceKansas City, MO 64151(816) 587-1849 - evenings(816) 891-5725 - daysKKAISER on America Online72427,235 on CompuServeUSVV7J8N@IBMMAIL.COM via InterNetThis stack is patch ware, send me a council strip or $30.00 which ever is easiest.End</text>
</content>
<content>
<layer>card</layer>
<id>29</id>
<text>How to make a button for your Home card--Click on the button below that says "For Home Card", this will create a button with the ICON used here on your Home card, you may then position it as you please.</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text>3</text>
</content>
<name>Help</name>
<script>on mouseUpif name of target contains "field" thenchangeFieldend ifend mouseUpon closeCardglobal clickSpotif cd fld 1 contains "normal" thenclick at clickSpotend ifend closeCardon changeFieldglobal rectOfIt,fldName,clickSpotlock screenput the mouseLoc into clickSpotif cd fld "Instruction" contains "Help" thenput "Click again to return it to normal.." into ¬cd fld "Instruction"put word 3 of the name of the target into fldNameput the rect of the target into rectOfItset the rect of the target to 0,20,512,281set the style of the target to scrollingrepeat with i = 2 to the number of cd fldsset the visible of cd fld i to falseend repeatset the visible of the target to trueelseput "Click on the box you need help with.." into ¬cd fld "Instruction"set the rect of the target to rectOfItset the style of the target to rectanglerepeat with i = 1 to the number of cd fldsset the visible of cd fld i to trueend repeatend ifunlock screen with iris open slowlyend changeFieldon allVisiblerepeat with i = 1 to the number of cd fldsset the visible of cd fld i to trueend repeatend allVisible</script>
</card>
card_16522.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>SCRIBE -- - Keeps a log of patrol leaders' council decisions.- Records attendance and dues paid.- Records advancement in troop records.</text>
</content>
<content>
<layer>card</layer>
<id>52</id>
<text>HISTORIAN --- Gathers pictures and facts about past activities of the troop and keeps these in permanent forms such as scrapbooks, wall displays, or information files.- Takes care of troop trophies and keepsakes.- Keeps information about troop Alumni and their doings.- Helps the chartered organization and the troop leadership in making use of troop historical material.</text>
</content>
<content>
<layer>card</layer>
<id>53</id>
<text>CHAPLAIN AIDE --- Helps in troop program planning to consider religious observances in activities.- Assists chaplain in planning and carrying out religious services at troop activities.- Tells troop members about religious emblem program of their faith and how to earn one.- Encourages troop members to live up to the ideal of the Scout Oath, Law, and Slogan.</text>
</content>
<content>
<layer>card</layer>
<id>54</id>
<text>TROOP GUIDE --- Be appointed by the Scoutmaster and assistant Scoutmaster.- Be at least first class rank.- Serve as an advisor to patrol leader.- Be a skills instructor.- Serve as a big brother to new Scouts.- Be a member of the PLC.</text>
</content>
<content>
<layer>card</layer>
<id>50</id>
<text>JUNIOR ASSISTANT SCOUTMASTER --- Supervises and helps the support staff of the troop including scribe, quartermaster, librarian, troop historian, instructors, and chaplain aide.- Works with Cub Scout and Webelos Den Chiefs.</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text>2</text>
</content>
<name>Leadership Map</name>
<script></script>
</card>
card_7398.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal bgListwait 20 ticks -- adjust this value for speed of double-clickif (the mouseClick) and (the clickLoc is within the rect of me) thendial word 3 of clickText()exit mouseUpend ifif the optionKey is down thenlock screenlock messagesFind whole word 1 to 2 of clickText() in fld "Name"--get bg fld "Scout Rank"put "Rank =" && bg fld "Scout Rank" & ", Patrol =" && bg fld patrol ¬& ", Post =" && bg fld post into theReportgo cd membersput theReportexit mouseUpelseFind whole word 1 to 2 of clickText() in fld "Name"end ifend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>284</top>
<right>510</right>
<bottom>303</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>15</textHeight>
<name>StackSize</name>
<script>on mouseUpanswer "Compacting takes a minute, is that OK?" ¬with "OK!" or "Cancel"if it is "OK!" thendoMenu "Compact Stack"play boingend ifopenCardend mouseUp</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>25</top>
<right>510</right>
<bottom>47</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>20</textHeight>
<name>ListTitle</name>
<script></script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>343</left>
<top>304</top>
<right>447</right>
<bottom>324</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update List</name>
<script>function list4Membersreturn "Phone number,Patrol,Rank,Post,Age,Merit badge count," & ¬"Skill Award count,Date joined,Birthday,Date of last rank advancement," & ¬"Time in Rank,Time in Scouts,attendance,Palm count,Camp Fund," & ¬"Mic-O-Say,Order of the Arrow"end list4Membersfunction list4Leadersreturn "Phone number,Position,Age,Date joined,Birthday," & ¬"Time in Scouts,attendance"end list4Leaderson mouseUpglobal markedList,opput empty into markedListput "Active" into whichListput "Cards are sorted by" && cd fld SortedBy & "," & return & ¬"Please make a selection:" into prompt -- ∆if visible of cd fld "Leaders" is false thenget showList(list4Members(),comma,prompt,true,"OK,Cancel,Sort^,Other","Phone number") -- ∆else--get showList(list4Leaders(),comma,prompt,true,"OK,Cancel^,Not Active,History","Phone number") -- ∆get showList(list4Leaders(),comma,prompt,true,"OK,Cancel^,More Options","Phone number") -- ∆end ifif line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Sort" then send mouseUp to cd btn SortByif line 1 of it is "More Options" thenput it into it2answer "List Leaders on which file" with ¬"District" or "Not Active" or "History"if it is "Cancel" then exit mouseUpif it is "Not Active" then put "Not Active" into whichListif it is "History" then put "History" into whichListif it is "District" then put "District" into whichListput it2 into itend ifif line 1 of it is "Other" thenput it into it2answer "List Members on which file" with ¬"Cancel" or "Not Active" or "History"if it is "Cancel" then exit mouseUpif it is "Not Active" then put "Not Active" into whichListif it is "History" then put "History" into whichListput it2 into itend ifif line 1 of it is "Help" thengo cd "Help"exit mouseUpend ifput item 1 of line 2 of it into itif it is "Phone number" thenput "Phone" into opelse if it is "Rank" thenput "Scout Rank" into opelse if it is "Patrol" thenput "Patrol" into opelse if it is "Position" thenput "Position" into opelse if it is "Merit Badge count" thenput "EagleMBCount" into opelse if it is "Date Joined" thenput "DateJoined" into opelse if it is "Birthday" thenput "Birthdate" into opelse if it is "Date of last rank advancement" thenput "RankDate" into opelse if it is "Years at Camp" thenput "SummerCampYears" into opelse if it is "Post" thenput "Post" into opelse if it is "Skill Award Count" thenput "SACount" into opelse if it is "Age" thenput "Age" into opelse if it is "Time in Rank" thenput "TIR" into opelse if it is "attendance" thenput "attendance" into opelse if it is "Time in Scouts" thenput "ScoutYears" into opelse if it is "Palm count" thenput "PalmCount" into opelse if it is "Camp Fund" thenput "SummerCampFee" into opelse if it is "Mic-O-Say" thenput "MosRank" into opelse if it is "Order of the Arrow" thenput "OaRank" into opend ifif visible of cd fld "Leaders" is false thenput "by" && it into cd fld "ControlMessage"put empty into cd fld MembersupdateListing op,Members,whichListelseput empty into cd fld Leadersput "by" && it into cd fld "ControlMessageL"updateListing op,Leaders,whichListend ifend mouseUp</script>
<script>on mouseUpif name of the target contains "Scouts" thenset name of the target to "Leaders"setVis "cd fld ListTitleLeader",falsesetVis "cd fld Leaders",falsesetVis "cd fld controlmessageL",falsesetVis "cd fld controlmessage",trueelseset the name of the target to "Scouts"setVis "cd fld ListTitleLeader",truesetVis "cd fld Leaders",truesetVis "cd fld controlmessageL",truesetVis "cd fld controlmessage",falseend ifend mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>177</top>
<right>113</right>
<bottom>199</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stack Info</name>
<script>on mouseUpgo cd "StackInfo"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>177</top>
<right>243</right>
<bottom>199</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Notes</name>
<script>on mouseUpsetscroll "cd fld Notes",0setVis "cd fld Notes",trueset visible of cd button "Unlock Text" to trueset visible of cd button "Print List" to trueend mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>204</top>
<right>113</right>
<bottom>226</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Defaults</name>
<script>on mouseUpglobal state,cityanswer "List them, or Modify them?" with "List" or "Modify" or ¬"Cancel"if it is "Cancel" then exit mouseUpif it is "Modify" thenask "Name of District?" ¬with line 6 of cd fld defaultsput it into DistNameask "Name of Council?" ¬with line 7 of cd fld defaultsput it into CounNameask "Full name of Scoutmaster?" ¬with line 5 of cd fld defaultsput it into SMask "What is your City name?" ¬with line 2 of cd fld defaultsput it into Cityask "What is your State name?" ¬with word 1 of line 1 of cd fld defaultsput it into Stateask "What is your Zip Code?" ¬with word 2 of line 1 of cd fld defaultsput it into Zipask "Last Court of Honor? (DDMMMYY)" ¬with line 4 of cd fld defaultsput it into LastCoHset the style of cd fld Defaults to shadowsetVis "cd fld Defaults",trueput State && " " && Zip into line 1 of cd fld Defaultsput City into line 2 of cd fld Defaultsput "Last Court of Honor was on:" into line 3 of cd fld Defaultsput LastCoH into line 4 of cd fld Defaultsput "Scoutmaster:" && SM into line 5 of cd fld Defaultsput DistName && "District" into line 6 of cd fld Defaultsput CounName && "Council" into line 7 of cd fld Defaultsput "Click to hide..." into line 9 of cd fld Defaultsput "Thank you"wait 3 secondsset the style of cd fld Defaults to opaquesetVis "cd fld Defaults",falsehide msg boxelsego card "Members"set the style of cd fld Defaults to shadowsetVis "cd fld Defaults",trueend ifend mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>136</left>
<top>204</top>
<right>243</right>
<bottom>226</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Scout</name>
<script>on mouseUpglobal newScoutask "Enter new Scout's name"if it is empty then exit mouseUpput it & comma into newScout -- 1ask "What is his current rank?"put it & comma after newScout -- 2ask "What patrol is he going to be a member of?"put it & comma after newScout -- 3ask "What is his phone number?"put it & comma after newScout -- 4ask "What is his address?"put it & comma after newScout -- 5answer "Did he receive the Arrow of Light in WEBELOS?" with No or Yesif it is "Yes" then put "Yes" & comma after newScout -- 6ask "Date Joined? i.e. 10/15/91" with the short dateput it & comma after newScout -- 7ask "Birth Date? i.e. 11/15/76"put it & comma after newScout -- 8put "Member" & comma after newScout -- 9ask "Parents Name? i.e. Bill and Susan Smith"put it & comma after newScout -- 10put "This takes less than a minute, please stand by."lock screenset lockMessages to truego first cd of bg "Scouts"doMenu "New card" -- new stats cardput item 1 of newScout into fld "Name"put item 2 of newScout into fld "Scout Rank"put item 2 of newScout into fld "Rank"put item 3 of newScout into fld "Patrol"put item 4 of newScout into fld "Phone"put item 5 of newScout into fld "Address"put item 7 of newScout into fld "DateJoined"put item 7 of newScout into fld "RankDate"put item 8 of newScout into fld "BirthDate"put item 9 of newScout into fld "Post"put item 10 of newScout into fld "Parents"put item 7 of newScout into fld "PostDateStart"put line 1 of cd fld "defaults" of cd members into fld "State"put line 2 of cd fld "defaults" of cd members into fld "City"put "Active" into fld "ActiveOrNot"if item 6 of newScout is "Yes" then set hilight of bg btn "Arrow of Light?" ¬to truerepeat with MB = 1 to 11go bg item MB of AllBgs()doMenu "New card"put item 1 of newScout into fld "Name"if MB < 5 thenput "New Plan" into fld "Plan"end ifend repeatgo cd "Members" of bg Membershide msg-- send mouseUp to cd btn "Update List"play "harpsichord" tempo 120 "ce e g c5 g4 c5 e"end mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>232</top>
<right>113</right>
<bottom>254</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Scout</name>
<script>on mouseUpdeleteScoutanswer "Delete another?" with "Yes" or "No"if it is "Yes" then deleteScouthide msgsend mouseUp to cd btn "Update List"play harpsichord "gq cq"end mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>135</left>
<top>232</top>
<right>243</right>
<bottom>254</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SortBy</name>
<script>function SortByreturn "Last Name,First Name,Patrol,Date Joined,Age,Rank,Attendance,Merit Badge Count"end sortByon mouseUpput "Sort the Scouts by what:" into promptget showList(SortBy(),comma,prompt,True,"OK,Cancel^,Help","Last name")if line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Help" thengo cd "Help"exit mouseUPend ifput item 1 of line 2 of it into itput "Sorting, stand by....."if it is "Last Name" thenput "Last Name" into cd fld SortedBysort bg Scouts by word 2 of fld Name & word 1 of fld Namesort bg leaders by word 2 of fld namesort bg "Merit Badges" by word 2 of fld Name & word 1 of fld Nameelse if it is "First Name" thenput "First Name" into cd fld SortedBysort bg Scouts by fld Namesort bg leaders by fld nameelse if it is "Patrol" thenput "Patrol" into cd fld SortedBysort bg Scouts by fld Patrol & word 2 of fld Name & word 1 of fld Nameelse if it is "Date Joined" thenput "Date Joined" into cd fld SortedBysort bg Scouts dateTime by fld DateJoined & word 2 of fld Name & word 1 of fld Nameelse if it is "Age" thenput "Age" into cd fld SortedBysort bg Scouts by fld Age & word 2 of fld Name & word 1 of fld Nameelse if it is "Rank" thenput "Rank" into cd fld SortedBysort bg Scouts by fld "Rank" & word 2 of fld Name & word 1 of fld Nameelse if it is "Attendance" thenput "Attendance" into cd fld SortedBysort bg Scouts by word 2 of fld Attendance & word 2 of fld Name & word 1 of fld Nameelse if it is "Merit Badge Count" thenput "Merit Badge Count" into cd fld SortedBysort bg Scouts by fld EagleMBCount & word 2 of fld Name & word 1 of fld Nameend ifhide msg boxgo cd membersend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>260</top>
<right>113</right>
<bottom>282</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Calendar</name>
<script>on mouseUpvisual effect iris close slowly to grayvisual effect iris open slowlygo "BSA Calendar" in a new windowend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>135</left>
<top>260</top>
<right>243</right>
<bottom>282</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Attendance</name>
<script>on mouseUpglobal MarkedListput return & "Please make a selection:" into prompt -- ∆get showList("Record,Display,Update,Troop Activity %,Report,Graph",comma,prompt,false,"OK,Cancel,Help^","Record") -- ∆if line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Help" thengo cd "Help"exit mouseUpend ifput item 1 of line 2 of it into itif it is "Record" thenif MarkedList is empty thenmarkCdsend ifput "These are the" && the number of marked cds && ¬"members," & return & "Select all in attendance:" into prompt -- ∆ask "What was the date?" with the short dateif it is empty then exit mouseUpput it into it1-- put "*" && it into attnDateask "What kind of activity? i.e. Meeting" with "Meeting"if it is "Cancel" then exit mouseUpput it into attnKindIf attnKind <> "Meeting" thenask "Number of over nights?" with "1"if it is "Cancel" then exit mouseUpput it && "night(s)" into overNightsend ifsetVis "cd fld attendance",trueset visible of cd button "Unlock Text" to trueset visible of cd button "Delete List" to trueset visible of cd button "Print List" to trueget showList(MarkedList,comma,prompt,true,"Record,Cancel,Help^,Special") -- ∆if line 1 of it is "Cancel" then exit mouseUp-- activities marked with a • are not counted as required eventsif line 1 of it is "Special" then put "•" && it1 into attnDateelse put "*" && it1 into attnDateput return & return & attnDate && attnKind && overNights && "--" ¬after cd fld attendanceif line 1 of it is "Record" or line 1 of it is "Special" thenrepeat with i = 2 to the number of lines of itput return & item 1 of line i of it after forAttndend repeatput forAttnd after cd fld attendanceend ifelse if it is "Display" thensetscroll "cd fld attendance",0setVis "cd fld attendance",trueset visible of cd button "Unlock Text" to trueset visible of cd button "Delete List" to trueset visible of cd button "Print List" to trueelse if it is "Update" thenput "Updating attendance records, please stand by..."lock screenset lockMessages to trueset numberFormat to "0"put empty into theMeetsput empty into theActsput empty into theSpecialput 0 into numOfMeetingsput 0 into numOfActsput 0 into numOfSpecialput cd fld attendance into theLotput locate("•",theLot) into lot2if lot2 contains "lineL" then put zero into lot2put locate("*",theLot) & "," & (the number of lines in theLot)+1 into lineList1-- put locate("•",theLot) & "," & (the number of lines in theLot)+1 into lineList2put lot2 & "," & (the number of lines in theLot)+1 into lineList2put lineList1 & "," & lineList2 into lineListsort items of lineList numericput the number of items in lineList - 1 into lineCntrepeat with i = 1 to lineCntset cursor to busy-- number of meetings held (not marked special)if line (item i of lineList) of theLot ¬contains "*" and "Meeting" is in line (item i of lineList) ¬of theLot then -- it's a meetingadd 1 to numOfMeetingsconvert word 2 of line (item i of lineList) of theLot to secondsput line (item i of lineList) to ¬((item i+1 of lineList)-1) of theLot & return after theMeetsend if-- number of activities other than those marked specialif line (item i of lineList) of theLot ¬contains "*" and "Meeting" is not in line (item i of lineList) ¬of theLot then -- it's an activityadd 1 to numOfActsconvert word 2 of line (item i of lineList) of theLot to secondsput line (item i of lineList) to ¬((item i+1 of lineList)-1) of theLot & return after theActsend if-- number of special activities attend (does not count for attendance)-- this is used for things like Round Table attendanceif line (item i of lineList) of theLot ¬contains "•" then -- it's some other kind of activity not countingadd 1 to numOfSpecialconvert word 2 of line (item i of lineList) of theLot to secondsput line (item i of lineList) to ¬((item i+1 of lineList)-1) of theLot & return after theSpecialend ifnext repeatend repeatput numOfMeetings + numOfActs into numOfAll -- specials are not totaledif the number of marked cds < word 1 of cd fld listTitle thenmarkCdsend ifput word 2 of line 1 of cd fld attendance into firstDateconvert firstDate to secondsgo first marked cdrepeat for the number of marked cdsput bg fld dateJoined into dateJoinedSetconvert dateJoinedSet to secondsrepeat with i = 1 to the number of lines in theMeetsif word 2 of line i of theMeets >= dateJoinedSet ¬and line i of theMeets contains "*" thenput line i to the number of lines in theMeets ¬of theMeets into hisMeetsexit repeatend ifend repeatrepeat with i = 1 to the number of lines in theActsif word 2 of line i of theActs >= dateJoinedSet ¬and line i of theActs contains "*" thenput line i to the number of lines in theActs ¬of theActs into hisActsexit repeatend ifend repeatrepeat with i = 1 to the number of lines in theSpecialif word 2 of line i of theSpecial >= dateJoinedSet ¬and line i of theSpecial contains "•" thenput line i to the number of lines in theSpecial ¬of theSpecial into hisSpecialexit repeatend ifend repeatput strCount("*",hisMeets) into numOfHisMeetings -- meetingsput strCount(bg fld name,hisMeets) into meetCntput strCount("*",hisActs) into numOfHisActs -- activitiesput strCount(bg fld name,hisActs) into actsCntput strCount("•",hisSpecial) into numOfHisSpecial -- specialput strCount(bg fld name,hisSpecial) into specialCntput numOfHisMeetings + numOfHisActs into numOfHisAllput meetCnt + actsCnt into hisCnt--put hisCnt & "/" & numOfHisAll && " " && (hisCnt/numOfHisAll)*100 & "%" ¬into bg fld Attendanceput meetCnt & "/" & numOfHisMeetings && " " && ¬(meetCnt/numOfHisMeetings)*100 & "%" into ¬bg fld meetAttndput actsCnt & "/" & numOfHisActs && " " && ¬(actsCnt/numOfHisActs)*100 & "%" into ¬bg fld activityAttndif the short name of this bg is "Leaders" thenput specialCnt & "/" & numOfHisSpecial && " " && ¬(specialCnt/numOfHisSpecial)*100 & "%" into ¬bg fld specialAttndend if-- end ifgo next marked cdend repeatgo cd membersplay boing-- hide msgelse if it is "Report" thenput "Building attendance report, please stand by..."lock screenput cd fld attendance into Aput "Attendance Report" & return & ¬cd fld "Troop Number" && " " && ¬the long date & return into titlego first marked cdput "Name,Meetings,Activities,Total,Other" & return into attndInforepeat for the number of marked cdsset cursor to busyif the name of this bkgnd contains Leaders thenput bg fld name & "," & bg fld meetAttnd & "," & bg fld activityAttnd ¬& "," & bg fld attendance & "," & bg fld specialAttnd ¬& return after attndInfoelseput bg fld name & "," & bg fld meetAttnd & "," & bg fld activityAttnd ¬& "," & bg fld attendance & ", " ¬& return after attndInfoend ifgo next marked cdend repeatgo cd stackinfoput title & return into cd fld Stackinfoput Align(attndInfo,"*,L","14,R","14,R","14,R","14,R") after cd fld stackinfoput strCount("*",A) into Eventsput strCount("Meeting",A) into Meventsput strCount("•",A) into MiscEventsput Events - Mevents into Oeventsset numberFormat to "0"put (Mevents/Events)*100 into MeventsPctput (Oevents/Events)*100 into OeventsPctput return & return & return & ¬"Activity Breakdown" & return & "==================" & return & ¬" Leader" & return & ¬"TTL Meet MPct Otr OPct Misc." & return & ¬"---- ---- ---- --- ---- -----" & return & ¬Events && " " && Mevents && " " && MeventsPct & "% " && ¬Oevents && " " && OeventsPct & "% " && " " && MiscEvents ¬after cd fld "stackinfo"else if it is "Troop Activity %" thenactivityelse if it is "Graph" thengraphAttendanceend ifhide msgend mouseUpon graphAttendanceput 0 into jan1put 0 into feb1put 0 into mar1put 0 into apr1put 0 into may1put 0 into jun1put 0 into jul1put 0 into aug1put 0 into sep1put 0 into oct1put 0 into nov1put 0 into dec1put cd fld attendance into theLotput locate("*",theLot) & "," & (the number of lines in theLot)+1 into lineList1put locate("•",theLot) & "," & (the number of lines in theLot)+1 into lineList2put lineList1 & "," & lineList2 into lineListsort items of lineList numericput the number of items in lineList - 2 into lineCntrepeat with i = 1 to lineCntput item i of lineList into jput item i+1 of lineList into kput k-j-2 into peepCntput word two of line (item i of lineList) of theLot into theDate -- get the dateconvert theDate to dateItemsif item 2 of theDate is "1" thenadd peepCnt to Jan1else if item 2 of theDate is "2" thenadd peepCnt to Feb1else if item 2 of theDate is "3" thenadd peepCnt to Mar1else if item 2 of theDate is "4" thenadd peepCnt to Apr1else if item 2 of theDate is "5" thenadd peepCnt to May1else if item 2 of theDate is "6" thenadd peepCnt to Jun1else if item 2 of theDate is "7" thenadd peepCnt to Jul1else if item 2 of theDate is "8" thenadd peepCnt to Aug1else if item 2 of theDate is "9" thenadd peepCnt to Sep1else if item 2 of theDate is "10" thenadd peepCnt to Oct1else if item 2 of theDate is "11" thenadd peepCnt to Nov1else if item 2 of theDate is "12" thenadd peepCnt to Dec1end ifend repeatput jan1 & return & feb1 & return & mar1 & return & apr1 & return & may1 & ¬return & jun1 & return & jul1 & return & aug1 & return & sep1 & ¬return & oct1 & return & nov1 & return & dec1 into area1put 1 into line 1 of gridLinesput 1 into line 2 of gridLinesput "" into line 3 of legendput "" into line 4 of legendput "" into line 5 of legendput "" into line 6 of legendput "leer" into line 7 of legendput "leer" into line 8 of legendput "Jan" into line 1 of legendXput "Feb" into line 2 of legendXput "Mar" into line 3 of legendXput "Apr" into line 4 of legendXput "May" into line 5 of legendXput "Jun" into line 6 of legendXput "Jul" into line 7 of legendXput "Aug" into line 8 of legendXput "Sep" into line 9 of legendXput "Oct" into line 10 of legendXput "Nov" into line 11 of legendXput "Dec" into line 12 of legendXput 0 into yStepput 0 into graphTypeput 1 into drawColorput 0 into line 1 of userMinMaxput 0 into line 2 of userMinMaxput 65535 into line 1 of colorsput 0 into line 2 of colorsput 0 into line 3 of colorsput 0 into line 4 of colorsput 65535 into line 5 of colorsput 0 into line 6 of colorsput 0 into line 7 of colorsput 0 into line 8 of colorsput 65535 into line 9 of colorsput 65535 into line 10 of colorsput 65535 into line 11 of colorsput 0 into line 12 of colorsput empty into area2put empty into area3put empty into area4put 0 into theModeDoLineBar gridLines,legend,legendX,yStep,graphType,drawColor,theMode,¬userMinMax,colors,area1,area2,area3,area4answer "Do you want to output the graph?" with "Output" or ¬"Cancel"if it is "Output" thenput 1 into theModeDoLineBar gridLines,legend,legendX,yStep,graphType,drawColor,theMode,¬userMinMax,colors,area1,area2,area3,area4end ifend graphAttendance</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>288</top>
<right>113</right>
<bottom>310</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Map</name>
<script>on mouseUpgoToMapsend mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>315</top>
<right>113</right>
<bottom>337</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpeffect1go cd "Help"end mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>136</left>
<top>288</top>
<right>243</right>
<bottom>310</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Reports</name>
<script>function reportListreturn "News Letter Report,Troop Activity %," & ¬"Progress Record,TouchBase,RoloDesk,Awards Shopping List," & ¬"Merit Badges by Scout,Merit Badge Summary,Mailing Labels," & ¬"Transfer Report,Not Active,SPL Report,Roster,Honor Camping," & ¬"Who Needs...?,Graph MB Counts by month"end reportListfunction reportFieldsreturn "Parents,Address,Birthdate,DateJoined," & ¬"RankDate,Post,PostDateStart,SummerCampFee,Comments," & ¬"City,State,Phone,Rank,Patrol,Name,Scout Rank," & ¬"EagleMBCount,SACount,ScoutYears,Age,TIR,ActiveOrNot," & ¬"Phone 2,Attendance,PalmCount,Plan,ActivityAttnd," & ¬"MeetAttnd,OaRank,MosRank"end reportFieldson mouseUpput return & "Please make a selection:" into prompt -- ∆get showList(reportList(),comma,prompt,true,"OK,Cancel,Help^","attendance") -- ∆if line 1 of it is "Cancel" then exit mouseUpif line 1 of it is "Help" thengo cd "Help"exit mouseUPend ifput item 1 of line 2 of it into itif it is "Troop Activity %" thenActivityelse if it is "Progress Record" thenlock Screengo first cd of bg Scoutsrepeat with i = 1 to the number of cds in bg Scoutsif fld ActiveOrNot is Active thenput "Building report for" && fld Nameput buildHistory() after boyHistoryend ifgo cd i+1 of bg Scoutsnext repeatend repeatif the number of chars in boyHistory < 30000 thengo cd stackInfoput boyHistory into cd fld stackInfo of cd stackInfoelseanswer "Too big, should I output to a file?" with "No" or "Yes"if it is "No" then exit mouseUpif it is "Yes" thenput newFileName("Select a destination:","Boys_History") into fileNameif fileName is empty or fileName is "Cancel" then exit mouseUpopen file fileNamewrite boyHistory to file fileNameclose file fileNameend ifgo cd Membersend ifplay twinkleelse if it is "News Letter Report" thentextFileelse if it is "Merit Badges by Scout" thenAllMBbyBoyelse if it is "Roster" thenrosterelse if it is "Merit Badge Summary" thenput MBSummary() into cd fld members of cd memberselse if it is "Awards Shopping List" thenawardsShoppingListelse if it is "TouchBase" thenPhoneBookelse if it is "RoloDesk" thenRoloDeskelse if it is "Mailing Labels" thencompListelse if it is "Not Active" thennotActiveelse if it is "SPL Report" thenSPLreportelse if it is "Honor Camping" thenHonorCampingelse if it is "Custom" thenMakeCustomelse if it is "Who Needs...?" thenWhoNeedselse if it is "Transfer Report" thenlock screenlock messagesgo first cd of bg scoutsfindWhosend mouseUp to bg btn "Out"else if it is "Graph MB Counts by month" thengraphMBelseexit mouseUpend ifend mouseUpon WhoNeedsput return & "Please make a single selection:" into prompt -- ∆get showList(meritBadgeList(),comma,prompt,false,"OK,Cancel,Help^") -- ∆if line 1 of it is "Cancel" then exit WhoNeedsif line 1 of it is "Help" thengo cd "Help"exit WhoNeedsend ifput item 1 of line 2 of it into thisLine --the whole lineput the number of words of thisLine into wordCnt --no. of wordsput word 2 to wordCnt of thisLine into thisBadgelock screenset lockMessages to truego first cd of bg "Merit Badges"put "The following boys need" && thisBadge && "Merit Badge" & ¬return into thisKidrepeat for the number of cds in bg "Merit Badges"set cursor to busyfind whole thisBadge in fld "MeritBadges"if the result is empty thenget the foundLineget char 5 of value(it)if it is " " thenput fld name & return after thisKidend ifend ifgo nextend repeatgo to cd stackInfoif thisBadge contains "*" then put return & return & return & ¬"* Eagle required" after thisKidput thiskid into cd fld stackinfoend WhoNeedson RoloDesklock screenset lockMessages to trueput newFileName("Select a destination:","BSA 495 RoloDesk") into fileNameif fileName is empty or fileName is "Cancel" then exit RoloDeskopen file fileNameset cursor to 4go first card of bg "scouts"repeat for the number of cards of bg "scouts"Put "Writing file - " & bkgnd field "Name"Write "^" && fld "Name" & return & fld "Parents" & return & ¬fld "Address" && fld "City" && fld State & return & ¬fld "Post" && fld "Patrol" & return & ¬fld "Phone" && fld "Phone 2" & ¬return to file fileNamego next cardend repeatgo first cd of bg "Leaders"repeat for the number of cards in bg "Leaders"put "Writing Leader file - " & fld "Name"Write "^" && fld "Name" & return & ¬fld "Address" & return & fld "City" && fld "State" & return & ¬fld "Position" & return & fld "Phone" && fld "Phone 2" & ¬return to file fileNamego next cardend repeatgo cd "Members"close file fileNamehide message boxend RoloDeskon graphMBglobal markedListif markedList is empty thenopenStackend ifput return & "Select a Scout or All to graph:" into prompt -- ∆get showList(markedList,comma,prompt,false,"OK,Cancel,All^","") -- ∆if line 1 of it is "Cancel" then exit graphMBif line 1 of it is "Help" thengo cd "Help"exit graphMBend ifput 0 into theModeput item 1 of line 2 of it into WhoItlock screenlock messagesput 0 into jan1put 0 into feb1put 0 into mar1put 0 into apr1put 0 into may1put 0 into jun1put 0 into jul1put 0 into aug1put 0 into sep1put 0 into oct1put 0 into nov1put 0 into dec1go first cd of bg "Merit Badges"if line 1 of it is "All" thenrepeat for the number of cds in bg "Merit Badges"put "When Merit Badges are Earned" into line 1 of legendput "All years are included" into line 2 of legendset cursor to busyput fld meritBadges after tempBadgesgo nextend repeatelse if line 1 of it is "OK" thenput "When" && whoIt && "Earned his Merit Badges" into line 1 of legendfind whole whoIt in fld nameput bg fld MBCount into line 2 of legendput fld meritBadges after tempBadgesgo cd membersend ifrepeat with i = 1 to the number of lines in tempBadgesset cursor to busyget line i of tempBadgesif char 5 of it is not " " thenconvert word 3 of it to dateItemsput word 3 of it & return after dateListend ifend repeatrepeat with i = 1 to the number of lines in dateListset cursor to busyif item 2 of line i of dateList is 1 then add 1 to jan1else if item 2 of line i of dateList is 2 then add 1 to feb1else if item 2 of line i of dateList is 3 then add 1 to mar1else if item 2 of line i of dateList is 4 then add 1 to apr1else if item 2 of line i of dateList is 5 then add 1 to may1else if item 2 of line i of dateList is 6 then add 1 to jun1else if item 2 of line i of dateList is 7 then add 1 to jul1else if item 2 of line i of dateList is 8 then add 1 to aug1else if item 2 of line i of dateList is 9 then add 1 to sep1else if item 2 of line i of dateList is 10 then add 1 to oct1else if item 2 of line i of dateList is 11 then add 1 to nov1else if item 2 of line i of dateList is 12 then add 1 to dec1end repeatput jan1 & return & feb1 & return & mar1 & return & apr1 & return & may1 & ¬return & jun1 & return & jul1 & return & aug1 & return & sep1 & ¬return & oct1 & return & nov1 & return & dec1 into area1put 1 into line 1 of gridLinesput 1 into line 2 of gridLinesput "" into line 3 of legendput "" into line 4 of legendput "" into line 5 of legendput "" into line 6 of legendput "leer" into line 7 of legendput "leer" into line 8 of legendput "Jan" into line 1 of legendXput "Feb" into line 2 of legendXput "Mar" into line 3 of legendXput "Apr" into line 4 of legendXput "May" into line 5 of legendXput "Jun" into line 6 of legendXput "Jul" into line 7 of legendXput "Aug" into line 8 of legendXput "Sep" into line 9 of legendXput "Oct" into line 10 of legendXput "Nov" into line 11 of legendXput "Dec" into line 12 of legendXput 0 into yStepput 0 into graphTypeput 1 into drawColorput 0 into line 1 of userMinMaxput 0 into line 2 of userMinMaxput 65535 into line 1 of colorsput 0 into line 2 of colorsput 0 into line 3 of colorsput 0 into line 4 of colorsput 65535 into line 5 of colorsput 0 into line 6 of colorsput 0 into line 7 of colorsput 0 into line 8 of colorsput 65535 into line 9 of colorsput 65535 into line 10 of colorsput 65535 into line 11 of colorsput 0 into line 12 of colorsput empty into area2put empty into area3put empty into area4put 0 into theModeDoLineBar gridLines,legend,legendX,yStep,graphType,drawColor,theMode,¬userMinMax,colors,area1,area2,area3,area4answer "Do you want to output the graph?" with "Output" or ¬"Cancel"if it is "Output" thenput 1 into theModeDoLineBar gridLines,legend,legendX,yStep,graphType,drawColor,theMode,¬userMinMax,colors,area1,area2,area3,area4end ifif the result is not empty then put the resultend graphMB</script>
</part>
<part>
<id>46</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>2</top>
<right>510</right>
<bottom>29</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>OakWood</font>
<textSize>20</textSize>
<textStyle>bold</textStyle>
<textHeight>26</textHeight>
<name>Troop Number</name>
<script>on mouseUpask "What is your Troop Number?" with cd fld "Troop Number"if it is empty then exit mouseUpput it into cd fld "Troop Number"end mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>135</left>
<top>315</top>
<right>243</right>
<bottom>337</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Replace</name>
<script>on mouseUppush this cdput 0 into counterask "Replace what string or name?"if it is empty then exit mouseUpelse put it into findStringask "Replace '"& findString &"' with what?"if it is empty then exit mouseUpelse put it into replaceStringif findString = replaceString then exit mouseUprepeat foreverset cursor to busyfind whole findStringif the result is not emptythen exit repeatelse do "put replaceString into " & the foundChunkadd 1 to counterend repeatpop cdif counter is 0then answer "No occurrences were found."else answer "Replacement of" && counter && "occurrences complete."end mouseUp</script>
</part>
<part>
<id>55</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>46</top>
<right>510</right>
<bottom>65</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>controlMessage</name>
<script></script>
</part>
<part>
<id>57</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>25</top>
<right>510</right>
<bottom>47</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>20</textHeight>
<name>ListTitleLeader</name>
<script></script>
</part>
<part>
<id>60</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>64</top>
<right>510</right>
<bottom>284</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Leaders</name>
<script>on mouseUpglobal bgListwait 20 ticks -- adjust this value for speed of double-clickif (the mouseClick) and (the clickLoc is within the rect of me) thendial word 3 of clickText()exit mouseUpelselock Screengo first cd of bg LeadersFind whole word 1 to 2 of clickText() in fld "Name"end ifend mouseUp</script>
</part>
<part>
<id>64</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>259</left>
<top>28</top>
<right>511</right>
<bottom>285</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Defaults</name>
<script>on mouseUpset the style of cd fld "Defaults" to transparentsetVis "cd fld Defaults",falseend mouseUp</script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>280</left>
<top>325</top>
<right>389</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Print this listing</name>
<script>on mouseUpif visible of cd fld Leaders is true thenput "Leaders" into thisFieldelse put "Members" into thisFieldput cd fld "Troop Number" & return & ¬cd fld controlMessage & return & return before cd fld thisFielddoMenu "Print Field..."end mouseUp</script>
</part>
<part>
<id>152</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>223</left>
<top>4</top>
<right>255</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Revision History</name>
<script>on mouseUpput empty into cd fld Membersput "BSA Troop Tracker©" & return into line 1 of cd fld membersput "by: HyperMac Software" & return after cd fld membersput "4904 NW 67th Terrace" & return after cd fld membersput "Kansas City, MO 64151" & return after cd fld membersput "AOL - KKAISER," & return after cd fld membersput "eWorld - KKAISER," & return after cd fld membersput "Internet - usvv7j8n@ibmmail.com" & return after cd fld membersput " " & return after cd fld membersput "Revision History:" & return after cd fld membersput " " & return after cd fld membersput "Version 1.0 issued early 1988" & return after cd fld membersput "Version 2.0 issued late 1989" & return after cd fld membersput "Version 3.0 issued about 1991" & return after cd fld membersput "Version 3.5 issued 16NOV93" & return after cd fld membersput "•Added a bunch of new reports" & return after cd fld membersput " " & return after cd fld membersput "All the above is ancient history and I didn't keep revision notes." & return after cd fld membersput " " & return after cd fld membersput "Version 3.6 issued 15JAN94" & return after cd fld membersput "•Added 'District' to the 'ActiveOrNot' field options" & return after cd fld membersput "•Added a button 'Edit Merit Badge List' to the Stack" & return & ¬"Info card, this displays the script of the 'MeritBadgeList'" & return & ¬"function so that it may be edited. WARNING: be careful" & return after cd fld membersput " " & return after cd fld membersput "Version 3.6.1 issued 19APR94" & return after cd fld membersput "•Fixed two small bugs, one on the Merit Badges card," & return after cd fld membersput "the other on the main card" & return after cd fld membersput "Version 4.0 issued 01APR94" & return after cd fld membersput "•First version for HyperCard version 2.2" & return after cd fld membersput "•Version 4.01 issued 14AUG94" & return after cd fld membersput "•Fixed the Update function of Attendance. If there were no • items in the " after cd fld membersput "attendance field the program took an error" & return after cd fld membersend mouseUp-- BSA Troop Tracker© is a product of HyperMac Software and Keith D. Kaiser, 4904 NW 67th Terrace-- Kansas City, MO 64151. If you include this stack on a CD-ROM it would be nice of you to send-- me a complementary copy. This stack is patch ware, send me a council strip or $30.00 which ever-- is easiest. Send enhancement ideas to: Internet -- USVV7J8N@IBMMAIL.COM or AOL -- KKAISER</script>
</part>
<part>
<id>114</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>2</left>
<top>5</top>
<right>256</right>
<bottom>284</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>attendance</name>
<script>on mouseUpsetVis "cd fld attendance",falseset visible of cd button "Unlock Text" to falseset visible of cd button "Delete List" to falseset visible of cd button "Print List" to falseset visible of message box to falseend mouseUp</script>
</part>
<part>
<id>141</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>261</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Notes</name>
<script>on mouseUpsetVis "cd fld Notes",falseset visible of cd button "Unlock Text" to falseset visible of cd button "Print List" to falseset visible of message box to falseend mouseUp</script>
</part>
<part>
<id>115</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>140</left>
<top>5</top>
<right>240</right>
<bottom>27</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Unlock Text</name>
<script>on mouseUpif the name of the target contains "Unlock Text" thenset the name of the target to "Lock Text"set the lockText of cd fld attendance to falseset the lockText of cd fld notes to falseelseset the name of the target to "Unlock Text"set lockText of cd fld attendance to trueset lockText of cd fld notes to trueend ifend mouseUp------------------------------------------------------------------------</script>
</part>
<part>
<id>118</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>140</left>
<top>26</top>
<right>240</right>
<bottom>48</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete List</name>
<script>on mouseUpanswer "This delete can not be undone!" with "OK" or "Cancel"if it is "OK" thenput empty into cd fld attendanceend ifend mouseUp</script>
<script>on mouseUpanswer "Show cards? Use Command . to stop." ¬with "Sequentialy" or "By Scout" or "Cancel"if it is "Cancel" then exit mouseUpelse if it is "Sequentialy" thengo first cd of bg Scoutsrepeat for the number of cds -- in bg Scoutsgo next cardend repeatgo first cd of bg Leadersrepeat for the number of cds in bg Leadersgo next cardend repeatgo first cd of bg Membersgo first marked cdelseput "S,TF,SC,FC,ST,L,E,SA,MB,P,Misc" into btnListrepeat with i = 1 to the number of marked cdsgo marked cd irepeat with j = 1 to 11send mouseUp to bg btn item j of btnListend repeatadd 1 to igo cd membersend repeatend ifend mouseUp</script>
</part>
<part>
<id>145</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>284</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>SortedBy</name>
<script></script>
</part>
<part>
<id>148</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>486</left>
<top>304</top>
<right>508</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>openStack</name>
<script>on mouseUpopenStackend mouseUp</script>
</part>
<part>
<id>150</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>388</left>
<top>325</top>
<right>486</right>
<bottom>338</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Output to file</name>
<script>on mouseUpput "BSA Report" && the short date into fileNameput newFileName("Select a destination:",fileName) into fileNameif fileName is empty or fileName is "Cancel" then exit mouseUpopen file fileNamewrite cd fld Members to file fileNameclose file fileNameend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>12</id>
<text>19 Cards, 307467 Bytes</text>
</content>
<content>
<layer>card</layer>
<id>46</id>
<text>Boy Scout Troop 495</text>
</content>
<content>
<layer>card</layer>
<id>55</id>
<text>by Phone number</text>
</content>
<content>
<layer>card</layer>
<id>64</id>
<text>Missouri 64151Kansas CityLast Court of Honor was on:30AUG93Scoutmaster: Scoutmaster Steve FogtNorth Star District DistrictHeart of America Council CouncilClick to hide...</text>
</content>
<content>
<layer>card</layer>
<id>57</id>
<text>1 Leaders Listed</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>1 History Scouts Listed</text>
</content>
<content>
<layer>card</layer>
<id>128</id>
<text>by Phone number</text>
</content>
<content>
<layer>card</layer>
<id>141</id>
<text>Click anywhere to hide:Indian CavesBrownville, NB(402) 883-2575Outdoor Sales & Surplus1403 SwiftN.K.C., MO 64116842-6644Outdoor Tradition (Archery)741-0208</text>
</content>
<content>
<layer>card</layer>
<id>145</id>
<text>Last Name</text>
</content>
<content>
<layer>card</layer>
<id>152</id>
<text>v 4.01</text>
</content>
<content>
<layer>card</layer>
<id>60</id>
<text><span class="style3"><a href="#" class="group">eith Kaiser 587-1849</a></span><span class="style1"></span></text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text><span class="style3"><a href="#" class="group">rendan Kaiser 587-1849</a></span><span class="style1"></span></text>
</content>
<name>Members</name>
<script>on openCardput the number of cds && ¬"Cards," && the size of this stack && "Bytes" into cd fld "StackSize"end openCard</script>